home *** CD-ROM | disk | FTP | other *** search
/ Megahits 6 / Megahits 6 (1995)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / time_ungepackt / time_271_300 / time272 / s / .edrc next >
Text File  |  1995-07-15  |  13KB  |  342 lines
  1.  
  2. #   DME.EDRC File    V1.2
  3. #
  4. #   © 14.3.1990  Daniel Brugger, Blumenacher 39, 7220 Schiers
  5. #   Public Domain. Entwickelt für mich selbst und alle PD-Freaks
  6. #   Gewinnbringender Vertrieb untersagt!
  7.  
  8.  
  9. topedge 120
  10. leftedge 0
  11. width  650
  12. height 146
  13. margin 75
  14. savetabs off
  15. ignorecase on
  16. wordwrap off
  17. resettoggle 3
  18. pageset 98
  19. insertmode on
  20. settoggle 2
  21. menuoff
  22. tabstop 4
  23.  
  24. # Toggle-Reservation: 0=Blockmarkierung; 1=Delete u. Backspace (temp); 2=Insertmode; 3=Wordwrap
  25. # Textmarken-Reservation (ping/pong): 0 für Markier- und Blockoperationen
  26.  
  27. map return (if !2 (insertmode on) split first while c=32 (down ( ) up) down if !2 (insertmode off))
  28.  
  29. map del (ifelse !r del (if !b (down ifelse b (settoggle 1) (resettoggle 1) up join if 1 down)))
  30. map nk. (ifelse !r del (if !b (down ifelse b (settoggle 1) (resettoggle 1) up join if 1 down)))
  31.  
  32. map bs (ifelse !l bs (ifelse b (settoggle 1) (resettoggle 1) up last join if 1 down ))
  33.  
  34. map tab (ifelse 2 (repeat tr (( ))) (tab))
  35. map s-tab (ifelse 2 (repeat tl (left if c=32 del)) (backtab))
  36.  
  37. map a-b (unblock block block bsource down resettoggle 0)
  38. map sa-b (bsource resettoggle 0)
  39.  
  40. menuadd (Project ) (Laden       f1) f1
  41. menuadd (Project ) (Neues Fen.  f2) f2
  42. menuadd (Project ) (Löschen     f3) f3
  43. menuadd (Project ) (Einschieben f4) f4
  44. menuadd (Project ) (Drucken     f5) f5
  45. menuadd (Project ) (Umbenennen  f6) f6
  46. menuadd (Project ) (Sichern     f7) f7
  47. menuadd (Project ) (Sich. als   f8) f8
  48. menuadd (Project ) (Sich./Icon  f9) f9
  49. menuadd (Project ) (Sich./Ende f10) f10
  50. menuadd (Project ) (CrunchLaden F1) s-f1
  51. menuadd (Project ) (CrunchSich. F2) s-f2
  52. menuadd (Project ) (DME startup F3) s-f3
  53. menuadd (Project ) (ESC-Seq   ©-f9) c-f9
  54. menuadd (Project ) (View Txt ©-f10) c-f10
  55.  
  56. map f1 arpload
  57. map f2 newwindow
  58. map f3 (top unblock block bottom block settoggle 0 escimm (bsave T:DmeOldText bdelete) resettoggle 0)
  59. map f4 arpinsfile
  60. map f5 (saveas T:DmePrint execute (run copy T:DmePrint PRT:))
  61. map f6 (escimm (chfilename ))
  62. map f7 saveold
  63. map f8 arpsave
  64. map f9 (saveold iconify)
  65. map f10 (saveold quit)
  66.  
  67. map s-f1 (escimm (setenv LoadName ) execute (c:decrunch $LoadName T:DmeDecr) newfile T:DmeDecr chfilename (\$LoadName) unsetenv LoadName)
  68. map s-f2 (escimm (setenv SaveName ) saveas T:DmeCrn execute (c:run c:crunch T:DmeCrn $SaveName efficiency 5 color 4 nosuff) unsetenv SaveName)
  69. map s-f3 (newfile s:startup-sequence)
  70. map s-f4 (newwindow newfile .EDRC)
  71.  
  72. # 
  73. map c-f1 (())
  74. map c-f2 (())
  75. map c-f3 (())
  76. map c-f4 (())
  77. map c-f5 (())
  78. map c-f6 (())
  79. map c-f7 (())
  80. map c-f8 (())
  81. map ac-f1 (())
  82. map ac-f2 (())
  83. map ac-f3 (())
  84. map ac-f4 (())
  85. map ac-f5 (())
  86. map c-f9 (execute (run :view -l2 DmeEsc.Help))
  87. map c-f10 (saveas T:DmeView execute (run :view T:DmeView))
  88. # 
  89.  
  90. map A-f2 (saveas T:prg.c execute (cc >T:fehler -a +l -iinclude: T:prg.c) execute (echo "*N") execute (type T:fehler) execute (echo *NFINISHED !))
  91. map A-f3 (execute (as >T:fehler T:prg.asm ) execute (type T:fehler ) execute (echo *NFINISHED !))
  92. map A-f4 (execute (ln >T:fehler T:prg.o LIB:m32.lib LIB:c32.lib) execute (type T:fehler) execute (echo *NFINISHED !))
  93. map A-f5 (newwindow newfile T:fehler)
  94. map A-f6 (arpsave)
  95. map A-f7 (execute (run T:prg))
  96. map A-f8 (execute (check T:prg.c))
  97.  
  98. map As-f4  (execute (ln >T:fehler T:prg.o LIB:m32.lib LIB:c32.lib LIB:arp.lib) execute (type T:fehler) execute (echo *NFINISHED !))
  99.  
  100. menuadd (Cursor ) (Geh zu Zl ©-g) c-g
  101. menuadd (Cursor ) (Txt-Anf ©-Hom) c-nk7
  102. menuadd (Cursor ) (Txt-End ©-End) c-nk1
  103. menuadd (Cursor ) (SeiteAuf PgUp) nk9
  104. menuadd (Cursor ) (SeiteAb  PgDn) nk3
  105. menuadd (Cursor ) (Oben   ©-PgUp) c-nk9
  106. menuadd (Cursor ) (Unten  ©-PgDn) c-nk3
  107. menuadd (Cursor ) (Zl-Anf   Home) nk7
  108. menuadd (Cursor ) (Zl-End   End ) nk1
  109. menuadd (Cursor ) (Wort rts ©-Rt) c-nk6
  110. menuadd (Cursor ) (Wort lks ©-Lk) c-nk4
  111.  
  112. map nk0 (insertmode toggle toggle 2)
  113. map nk5 ()
  114. map nk6 right
  115. map nk4 left
  116. map nk8 up
  117. map nk2 down
  118.  
  119. map c-g   (escimm (goto ))
  120. map c-nk7 (top firstnb)
  121. map c-nk1 (bottom firstnb)
  122. map nk9    pageup
  123. map nk3    pagedown
  124. map c-nk9 (screentop firstnb)
  125. map c-nk3 (screenbottom firstnb)
  126. map nk7    firstnb
  127. map nk1    last
  128. map c-nk6  wright
  129. map c-nk4  wleft
  130.  
  131. map s-up    pageup
  132. map s-down  pagedown
  133. map s-left  firstnb
  134. map s-right last
  135. map c-up   (top firstnb)
  136. map c-down (bottom firstnb)
  137. map c-left  wleft
  138. map c-right wright
  139.  
  140. menuadd (Mark+Block ) (StartBlk   @-Hom) a-nk7
  141. menuadd (Mark+Block ) (EndeBlk    @-End) a-nk1
  142. menuadd (Mark+Block ) (Alles        @ +) a-nk+
  143. menuadd (Mark+Block ) (Clear        @ -) a-nk-
  144. menuadd (Mark+Block ) (==>> RAM:   @-rt) a-nk6
  145. menuadd (Mark+Block ) (RAM: ==>>   @-lk) a-nk4
  146. menuadd (Mark+Block ) (bisTxtAnf @©-Hom) ac-nk7
  147. menuadd (Mark+Block ) (bisTxtEnd @©-End) ac-nk1
  148. menuadd (Mark+Block ) (SeiteAuf  @-PgUp) a-nk9
  149. menuadd (Mark+Block ) (SeiteAb   @-PgDn) a-nk3
  150. menuadd (Mark+Block ) (ZeileAuf   @-Up ) a-nk8
  151. menuadd (Mark+Block ) (ZeileAb    @-Dn ) a-nk2
  152. menuadd (Mark+Block ) (ZleLöschen @-Del) a-nk.
  153. menuadd (Mark+Block ) (VerDoppZl  @-Ins) a-nk0
  154. menuadd (Mark+Block ) (LöschBlock  @©-l) ac-l
  155. menuadd (Mark+Block ) (DruckBlock   @-d) a-d
  156. menuadd (Mark+Block ) (CopyBlock    @-c) a-c
  157. menuadd (Mark+Block ) (Verschieb    @-v) a-v
  158. menuadd (Mark+Block ) (SicherBlock  @-s) a-s
  159.  
  160. map a-nk7 (ping 0 ifelse 0 (goto end unblock) (settoggle 0) block pong 0 block)
  161. map a-nk1 (ping 0 ifelse 0 (goto start) (settoggle 0) unblock block pong 0 block)
  162.  
  163. map a-nk+ (ping 0 top unblock block bottom block settoggle 0 pong 0)
  164. map a-nk- (unblock resettoggle 0)
  165.  
  166. map a-nk6 (bsave T:DmeBlock bdelete resettoggle 0)
  167. map a-nk4 (insfile T:DmeBlock)
  168.  
  169. map ac-nk7 (unblock ping 0 top block pong 0 block settoggle 0)
  170. map ac-nk1 (unblock ping 0 block bottom block pong 0 settoggle 0)
  171.  
  172. map a-nk9 (ifelse 0 (goto start pageup ping 0 goto end unblock block pong 0 block) (block pageup block settoggle 0))
  173. map a-nk3 (ifelse 0 (goto end pagedown ping 0 goto start unblock block pong 0 block) (block pagedown block settoggle 0))
  174.  
  175. map a-nk8 (ifelse 0 (goto start up ping 0 goto end unblock block pong 0 block) (block block settoggle 0))
  176. map a-nk2 (ifelse 0 (goto end down ping 0 goto start unblock block pong 0 block) (block block settoggle 0))
  177.  
  178. map ac-l   (bsave T:DmeOldBlock bdelete resettoggle 0)
  179. map ac-nk. (bsave T:DmeOldBlock bdelete resettoggle 0)
  180.  
  181. map a-del (unblock block block bsave T:DmeDelLine bdelete resettoggle 0)
  182. map a-nk. a-del
  183.  
  184. map a-nk0 (unblock block block bcopy unblock down resettoggle 0)
  185.  
  186. map a-d (bsave T:DmePrint unblock execute (run copy T:DmePrint PRT:) resettoggle 0)
  187. map a-c bcopy
  188. map a-v (bmove resettoggle 0)
  189. map a-s (escimm (bsave ))
  190.  
  191. menuadd (Löschen ) (Lösch-Text     f3) f3
  192. menuadd (Löschen ) (Lö-Block     @©-l) ac-l
  193. menuadd (Löschen ) (Lö-Zeile    @-Del) a-del
  194. menuadd (Löschen ) (Lö-End-Zl   ©-Del) c-del
  195. menuadd (Löschen ) (Lö-Anf-Zl   ©-Bs ) c-bs
  196. menuadd (Löschen ) (Lö-Wort     ©-w  ) c-w
  197. menuadd (Löschen ) (UnLösch-Text     ) (insfile T:DmeOldText)
  198. menuadd (Löschen ) (UnLö-Blk   $@©-l ) sac-l
  199. menuadd (Löschen ) (UnLö-Zeile $@-Del) sa-del
  200. menuadd (Löschen ) (UnLö-EndZl $©-Del) sc-del
  201. menuadd (Löschen ) (UnLö-AnfZl $©-Bs ) sc-bs
  202. menuadd (Löschen ) (UnLö-Wort  $©-w  ) sc-w
  203.  
  204.  
  205. map c-del (unblock block block bsave T:DmeDelEOL unblock remeol resettoggle 0)
  206. map c-nk. c-del
  207. map c-bs (unblock block block bsave T:DmeDelBOL repeat cleft back unblock resettoggle 0)
  208. map c-w (ifelse c=32 wright (wright wleft) scanf %s set DmeDelWord (\$scanf) while ca del del)
  209. map sac-l (insfile T:DmeOldBlock)
  210. map sa-del (insfile T:DmeDelLine)
  211. map sa-nk. sa-del
  212. map sc-del (insfile T:DmeDelEOL down deline up)
  213. map sc-nk. sc-del
  214. map sc-bs (insfile T:DmeDelBOL down deline up)
  215. map sc-w  ((\$DmeDelWord) ( ))
  216.  
  217.  
  218. menuadd (Suchen ) (abc = ABC     ) (ignorecase on)
  219. menuadd (Suchen ) (abc <> ABC    ) (ignorecase off)
  220. menuadd (Suchen ) (Such nach  ©-s) c-s
  221. menuadd (Suchen ) (Ersetz mit ©-e) c-e
  222. menuadd (Suchen ) (Such vorw  ©-v) c-v
  223. menuadd (Suchen ) (Such rückw ©-r) c-r
  224. menuadd (Suchen ) (S/E nächst ©-n) c-n
  225. menuadd (Suchen ) (S/E zurück ©-z) c-z
  226. menuadd (Suchen ) (S/E alle   ©-a) c-a
  227.  
  228. map c-s (escimm (findstr ( )))
  229. map c-e (escimm (repstr ( )))
  230. map c-v next
  231. map c-r prev
  232. map c-n nextr
  233. map c-z prevr
  234. map c-a (repeat -1 nextr)
  235.  
  236. menuadd (Spezial ) (Falt =>    @©-Rt) ac-nk6
  237. menuadd (Spezial ) (=> Falt    @©-Lk) ac-nk4
  238. menuadd (Spezial ) (=> F.Alles  @©-5) ac-nk5
  239. menuadd (Spezial ) (Rutsch =>  ©-tab) c-tab
  240. menuadd (Spezial ) (Rutsch <=  ©-TAB) cs-tab
  241. menuadd (Spezial ) (InsKol '?'   ©-i) c-i
  242. menuadd (Spezial ) (DelKol '?'   ©-d) c-d
  243. menuadd (Spezial ) (Repetier    @©-r) ac-r
  244. menuadd (Spezial ) (FlippAuf    ©-Up) c-nk8
  245. menuadd (Spezial ) (FlippAb     ©-Dn) c-nk2
  246. menuadd (Spezial ) (abc->ABC    © + ) c-nk+
  247. menuadd (Spezial ) (ABC->abc    © - ) c-nk-
  248. menuadd (Spezial ) (ASCII-Tab ©-Help) c-help
  249. menuadd (Spezial ) (ASCII-Char   ©-.) c-.
  250.  
  251. set DmeFold (@-FALTE-1@)
  252. map ac-nk6 (goto start insline down a-nk7 up first right right (\$DmeFold) left tlate +1 if c=91 (tlate -26 left tlate +1) wleft scanf %10s set DmeFold (\$scanf) ifelse 0 (bsave T:\$DmeFold bdelete resettoggle 0) (unblock deline))
  253. map ac-nk4 (firstnb scanf %10s if c=64 (if b (last return up) deline) insfile T:\$scanf)
  254. map ac-nk5 (bottom last return (END_OF_FILE) top first right right while !b (ifelse c=64 ac-nk4 down) deline)
  255.  
  256. map c-tab (wordwrap off insertmode on ping 0 first while !r ((  ) down first) pong 0 if !2 (insertmode off) if 3 (wordwrap on))
  257. map cs-tab (ping 0 firstnb while !r (ifelse x>2 (bs bs) (if x=2 bs) down firstnb) pong 0)
  258.  
  259. map c-i (escimm (set InsString ( )) escimm (set StringLaenge 1) if 0 (insertmode on wordwrap off goto start while cb ((\$InsString) repeat (\$StringLaenge) left down) if !2 (insertmode off) if 3 (wordwrap on) goto start))
  260. map c-d (escimm (set AnzDel 1) if 0 (wordwrap off goto start while cb (repeat (\$AnzDel) del down) if 3 (wordwrap on) goto start))
  261. # map c-i (escimm (set InsString ( )) escimm (set StringLaenge 1) insertmode on ping 0 first ifelse !r (settoggle 1) (resettoggle 1) while 1 (pong 0 (\$InsString) repeat (\$StringLaenge) left down ping 0 first ifelse !r (settoggle 1) (resettoggle 1)))
  262. # map c-d (escimm (set AnzDel 1) while !r (repeat (\$AnzDel) del down))
  263.  
  264. map ac-r (escimm (set RepString (A)) escimm (set AnzRep 1) repeat (\$AnzRep) ((\$RepString)))
  265.  
  266. map c-nk8 (if !t (unblock block block up bmove unblock resettoggle 0)
  267. map c-nk2 (if !b (unblock block block down down bmove up unblock resettoggle 0)
  268.  
  269. map c-nk+ (if cl (tlate -32) right)
  270. map c-nk- (if cu (tlate +32) right)
  271.  
  272. map c-help (topedge 0 tmpheight 266 newwindow newfile Dme.ASCII topedge 120)
  273. map c-. (escimm (tlate ) scanf %1s set AscString (\$scanf))
  274.  
  275. menuadd (Diverses ) (Rand rts   ©-m) (escimm (margin 80))
  276. menuadd (Diverses ) (Formatiere ©-f) c-f
  277. menuadd (Diverses ) (Wortsprung ©-5) c-nk5
  278. menuadd (Diverses ) (Insertmode Ins) nk0
  279. menuadd (Diverses ) (TabStop       ) (escimm (tabstop 4))
  280. menuadd (Diverses ) (Schrift       ) (escimm (setfont topaz.font 9)
  281. menuadd (Diverses ) (Kdo-Zeile  Esc) esc
  282. menuadd (Diverses ) (LetztKdo ©-Esc) c-esc
  283. menuadd (Diverses ) (DOS-Kdo @©-Esc) ac-esc
  284. menuadd (Diverses ) (Iconify  ©-Ret) c-return
  285. menuadd (Diverses ) (Hilfe    Help ) help
  286.  
  287. map c-m (escimm (margin 80))
  288. map c-f   reformat
  289. map c-nk5 (wordwrap toggle toggle 3)
  290. map ac-esc (escimm (execute (run ))
  291. map c-return iconify
  292. map help (execute (run :view -l2 DmeEdrc.Help)
  293.  
  294. map c-1 (ping 1)
  295. map c-2 (ping 2)
  296. map c-3 (ping 3)
  297. map c-4 (ping 4)
  298. map c-5 (ping 5)
  299. map c-6 (ping 6)
  300. map c-7 (ping 7)
  301. map c-8 (ping 8)
  302. map c-9 (ping 9)
  303. map sc-1 (pong 1)
  304. map sc-2 (pong 2)
  305. map sc-3 (pong 3)
  306. map sc-4 (pong 4)
  307. map sc-5 (pong 5)
  308. map sc-6 (pong 6)
  309. map sc-7 (pong 7)
  310. map sc-8 (pong 8)
  311. map sc-9 (pong 9)
  312.  
  313. map A-a (escimm (set a ( )) map A-a ((\$a)))
  314. map A-b (escimm (set b ( )) map A-b ((\$b)))
  315. map A-c (escimm (set c ( )) map A-c ((\$c)))
  316. map A-d (escimm (set d ( )) map A-d ((\$d)))
  317. map A-e (escimm (set e ( )) map A-e ((\$e)))
  318. map A-f (escimm (set f ( )) map A-f ((\$f)))
  319. map A-g (escimm (set g ( )) map A-g ((\$g)))
  320. map A-h (escimm (set h ( )) map A-h ((\$h)))
  321. map A-i (escimm (set i ( )) map A-i ((\$i)))
  322. map A-j (escimm (set j ( )) map A-j ((\$j)))
  323. map A-k (escimm (set k ( )) map A-k ((\$k)))
  324. map A-l (escimm (set l ( )) map A-l ((\$l)))
  325. map A-m (escimm (set m ( )) map A-m ((\$m)))
  326. map A-n (escimm (set n ( )) map A-n ((\$n)))
  327. map A-o (escimm (set o ( )) map A-o ((\$o)))
  328. map A-p (escimm (set p ( )) map A-p ((\$p)))
  329. map A-q (escimm (set q ( )) map A-q ((\$q)))
  330. map A-r (escimm (set r ( )) map A-r ((\$r)))
  331. map A-s (escimm (set s ( )) map A-s ((\$s)))
  332. map A-t (escimm (set t ( )) map A-t ((\$t)))
  333. map A-u (escimm (set u ( )) map A-u ((\$u)))
  334. map A-v (escimm (set v ( )) map A-v ((\$v)))
  335. map A-w (escimm (set w ( )) map A-w ((\$w)))
  336. map A-x (escimm (set x ( )) map A-x ((\$x)))
  337. map A-y (escimm (set y ( )) map A-y ((\$y)))
  338. map A-z (escimm (set z ( )) map A-z ((\$z)))
  339.  
  340. menuon
  341.  
  342.